home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / sync / testFileSyncMon1.dfm < prev    next >
Encoding:
Text File  |  2001-02-27  |  2.5 KB  |  117 lines
  1. object frmMain: TfrmMain
  2.   Left = 451
  3.   Top = 279
  4.   Width = 313
  5.   Height = 275
  6.   Caption = 'testFileSyncMon'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object grpMutexMon: TGroupBox
  17.     Left = 8
  18.     Top = 8
  19.     Width = 289
  20.     Height = 113
  21.     Caption = 'FileMutexMonitor'
  22.     TabOrder = 0
  23.     object lblMutex: TLabel
  24.       Left = 16
  25.       Top = 24
  26.       Width = 42
  27.       Height = 13
  28.       Caption = 'Acquired'
  29.     end
  30.     object btnAcquire: TButton
  31.       Left = 16
  32.       Top = 48
  33.       Width = 75
  34.       Height = 25
  35.       Caption = 'Acquire'
  36.       TabOrder = 0
  37.       OnClick = btnAcquireClick
  38.     end
  39.     object btnRelease: TButton
  40.       Left = 16
  41.       Top = 80
  42.       Width = 75
  43.       Height = 25
  44.       Caption = 'Release'
  45.       TabOrder = 1
  46.       OnClick = btnReleaseClick
  47.     end
  48.     object lbMutex: TListBox
  49.       Left = 104
  50.       Top = 16
  51.       Width = 169
  52.       Height = 89
  53.       ItemHeight = 13
  54.       TabOrder = 2
  55.     end
  56.   end
  57.   object grpGroupMon: TGroupBox
  58.     Left = 8
  59.     Top = 128
  60.     Width = 289
  61.     Height = 113
  62.     Caption = 'FileGroupMonitor'
  63.     TabOrder = 1
  64.     object lblGroup: TLabel
  65.       Left = 16
  66.       Top = 24
  67.       Width = 29
  68.       Height = 13
  69.       Caption = 'Empty'
  70.     end
  71.     object btnJoinGroup: TButton
  72.       Left = 16
  73.       Top = 48
  74.       Width = 75
  75.       Height = 25
  76.       Caption = 'Join'
  77.       TabOrder = 0
  78.       OnClick = btnJoinGroupClick
  79.     end
  80.     object btnLeaveGroup: TButton
  81.       Left = 16
  82.       Top = 80
  83.       Width = 75
  84.       Height = 25
  85.       Caption = 'Leave'
  86.       TabOrder = 1
  87.       OnClick = btnLeaveGroupClick
  88.     end
  89.     object lbGroup: TListBox
  90.       Left = 104
  91.       Top = 16
  92.       Width = 169
  93.       Height = 89
  94.       ItemHeight = 13
  95.       TabOrder = 2
  96.     end
  97.   end
  98.   object GpFileMutexMonitor1: TGpFileMutexMonitor
  99.     Active = True
  100.     DeleteOnRelease = False
  101.     MutexFile = 'TestFileSync.M'
  102.     OnAcquired = GpFileMutexMonitor1Acquired
  103.     OnReleased = GpFileMutexMonitor1Released
  104.     Left = 120
  105.     Top = 32
  106.   end
  107.   object GpFileGroupMonitor1: TGpFileGroupMonitor
  108.     Active = True
  109.     DeleteOnRelease = False
  110.     GroupFile = 'TestFileSync.G'
  111.     OnEmpty = GpFileGroupMonitor1Empty
  112.     OnNotEmpty = GpFileGroupMonitor1NotEmpty
  113.     Left = 120
  114.     Top = 152
  115.   end
  116. end
  117.